home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er Special 80
/
64er_Magazin_Sonderheft_80_19xx_Markt__Technik_de_Side_B.d64
/
dok a.ue.geos
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
37 lines
1 poke53280,0:poke53281,0
2 printchr$(14)"[147]"tab(15)"[194]amdok 12"tab(97)"von"tab(49)"[200]ans-[202]uergen [218]iethmann"
3 print"[194]itte defekte [193]lles ueber [199]eos [196]skette"tab(80)"in das [204]aufwerk legen"
4 print"und eine [212]aste druecken":wait203,64,64:open1,8,15,"i":open2,8,2,"#"
5 print#1,"u1:"2;0;10;5:print#1,"b-p"2;20:get#2,a$:a=asc(a$+chr$(0))
6 ifa<>205thenprint"[147]nicht auf dieser [196]isk anwendbar!":close2:close1:end
7 readn:ifn<0then9
8 print#1,"m-w"chr$(lb)chr$(05)chr$(1)chr$(n):lb=lb+1:goto7
9 on abs(n) goto10,11,14
10 read lb:goto 7
11 if si=1 thenprint#1,"u2:";2;0;t;s
12 read t: read s
13 print#1,"u1:";2;0;t;s:si=1:goto7
14 print#1,"u2:";2;0;t;s:print#1,"i"
15 close2:close1:print"[193]lles ueber [199]eos nun wieder"tab(80)"verwendbar!"
16 data-2,18,0,-1,0,18,1,65,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
17 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
18 data0,0,0,0,0,0,0,0,13,188,189,5,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
19 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10,134,219,1,17
20 data255,255,1,17,255,255,1,17,255,255,1,17,255,255,1,109,116,57,48,56,48
21 data56,32,47,32,115,101,105,116,101,49,160,160,68,65,48,50,51,160,160,160
22 data160,19,8,71,69,79,83,32,102,111,114,109,97,116,32,86,49,46,48,0,0,0,0
23 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
24 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,-2,18,1,-1,0
25 data18,9,195,1,16,116,101,120,116,45,116,104,101,111,114,105,101,160,160
26 data160,160,1,8,1,7,88,7,6,13,17,11,0,0,0,195,1,17,83,99,104,114,105,102
27 data116,115,116,105,108,101,160,160,160,160,1,9,1,7,88,8,22,13,47,6,0,0,0
28 data195,1,18,65,117,102,122,123,104,108,117,110,103,160,160,160,160,160
29 data160,1,10,1,7,88,7,6,13,18,5,0,0,0,195,1,1,84,97,98,101,108,108,101,47
30 data76,101,101,114,122,99,104,110,1,14,1,7,88,8,22,13,58,4,0,0,0,195,2,1,84
31 data97,98,101,108,108,101,47,114,105,99,104,116,105,103,160,2,14,1,7,88,7
32 data6,13,20,5,0,0,0,195,2,2,77,101,114,103,101,45,83,121,110,116,97,120,102
33 data104,108,114,2,15,1,7,88,7,6,13,17,5,0,0,0,195,2,3,77,101,114,103,101
34 data45,69,105,110,108,97,100,117,110,103,160,2,16,1,7,88,8,23,0,47,4,0,0,0
35 data195,2,4,66,108,111,99,107,102,111,114,109,97,116,101,160,160,160,160
36 data2,17,1,7,88,8,22,13,23,5,0,-3